home *** CD-ROM | disk | FTP | other *** search
/ EnigmA Amiga Run 1999 March / EnigmA AMIGA RUN 35 (1999)(G.R. Edizioni)(IT)[!][issue 1999-03].iso / earcd / -archivi / -recent2 / amicad_2.00.lha / AmiCAD / ARexx / EditScript.AmiCAD < prev    next >
Text File  |  1999-02-21  |  2KB  |  52 lines
  1. /* EditScript.AmiCAD, Chez Corbin, Mercredi 16 Juillet 1997, version 1.00 */
  2. /* Chargement automatique d'un script dans AmiTex depuis AmiCAD */
  3. /* L'appel se fait en sélectionnant l'un des onze menus Macros/ARexx
  4.  * et en enfonçant en même temps la touche CONTROL (Ctrl).
  5.  * Le script doit se trouver dans le répertoire assigné REXX:
  6.  * Il doit aussi posséder l'extension .AmiCAD à son nom */
  7.  
  8. signal on error             /* pour l'interception des erreurs */
  9. signal on syntax
  10.  
  11. options results
  12.  
  13. parse arg script            /* récupération du nom du script */
  14.  
  15. if script = "" then do
  16.     'REQFILE("Fichier script à éditer", "Travail:AmiCAD/ARexx", "")'
  17.     script = result
  18.     if script="" then exit
  19. end
  20.  
  21. port = ADDRESS()                    /* lecture du nom du port AmiCAD */
  22.  
  23. address command
  24. if ~show(p, "AMITEX") then do       /* à améliorer... (AMITEX0, AMITEX1...) */
  25.     f=0                 /* il n'y avait pas de fenêtre ouverte */
  26.     'run > nil:' "SYS:tools/Amitex/AmiTex"  /* chargement de l'éditeur */
  27.     waitforport "AMITEX"
  28. end
  29. else f=1                /* il y a déjà une fenêtre active */
  30.  
  31. ADDRESS (AMITEX)
  32. cr='0a'x
  33.  
  34. if f=1 then 'NEW("")'               /* demande l'ouverture d'une autre fenêtre */
  35. if ~exists(script) then script=script||".AmiCAD"
  36.  
  37. 'LOAD("'script'")'                  /* demande le chargement du script */
  38.  
  39. exit
  40.  
  41. /* Traitement des erreurs, interruption du programme */
  42. syntax:
  43. address (port)
  44. erreur=RC
  45. 'MESSAGE("Script EditScript.AmiCAD :"+CHR(10)+"Erreur de syntaxe"+CHR(10)+"en ligne 'SIGL'"+CHR(10)+"'errortext(erreur)'")'
  46. exit
  47.  
  48. error:
  49. address (port)
  50. 'MESSAGE("Script EditScript.AmiCAD :"+CHR(10)+"Erreur en ligne 'SIGL'")'
  51. exit
  52.